home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / TEXTEDIT.SWG / 0002_CENTER2.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  193b  |  14 lines
  1. { Center Text }
  2.  
  3. Uses Crt;
  4. Var
  5.   s : String;
  6.   i : Integer;
  7. begin
  8.   Write('String? ');
  9.   readln(s);
  10.   i := (succ(lo(windmax)) - length(s)) shr 1;
  11.   gotoXY(i,10);
  12.   Write(s);
  13. end.
  14.